home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9110b.d64
/
tech-tech 2.src
< prev
next >
Wrap
Text File
|
1995-03-30
|
4KB
|
209 lines
; ╘ECH-╘ECH - DIE ZWEITE!
;------------------------
; (W) BY ┴NONYM OF ╨┴─╒┴!
; (╞RANK ═ICHLICK)
;------------------------
ORG $C000
LDX #0
STX $D020
STX $D021
LDA #$FF ;┬ILDSCHIRM MIT NEUEM
:CLR STA $0400,X ;╠EERZEICHEN ($FF)
STA $0500,X ;FUELLEN
STA $0600,X
STA $0700,X
INX
BNE CLR
:STORE TXA ;═ATRIX DER ╟RAFIK
STA $0478,X ;AUF DEN ┬ILDSCHIRM
LDA #$0B ;SCHREIBEN UND DIE
STA $D878,X ;╞ARBEN SETZEN
INX
CPX #6*40
BNE STORE
LDA #$06
STA $D022
LDA #$0E
STA $D023
SEI
LDA #$81 ; ╔╥╤-╔NITIALISIERUNG
STA $D01A
LDA #0
STA $DC0E
LDA #$7F
STA $DC0D
LDA #$1B
STA $D011
LDA #$3F
STA $D012
LDA #<IRQ
LDX #>IRQ
STA $0314
STX $0315
CLI
:BACK JMP BACK ; ENDLOSSCHLEIFE
:IRQ LDY #$3F ;┌UERST ┴USGLEICH
CPY $D012 ;VON ╥ASTERSTRAHL-
BNE IRQ ;UNGENAUIGKEITEN
LDX #$10 ;
:DELAY1 DEX ;(SIEHE ╨ROFI-├ORNER
BNE DELAY1 ; IN 1/91)
INY
CPY $D012
NOP
BEQ SKIP1
CMP $00
NOP
:SKIP1 LDX #9
:DELAY2 DEX
BNE DELAY2
INY
NOP
NOP
CPY $D012
NOP
BEQ SKIP2
CMP $00
:SKIP2 LDX #10
:DELAY3 DEX
BNE DELAY3
INY
CPY $D012
BNE NEXT
:NEXT BIT $00 ; WARTEN, BIS DER
NOP ; ╥ASTERSTRAHL DIE; RICHTIGE ╙TART-
NOP ; POSITION ERREICHT
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
LDX #0
:LOOP JSR TIMEIT ; ─IE ╥EGISTER
JSR TIMEIT ; $D018 UND $D016
JSR TIMEIT ; IMMER AN DER
JSR TIMEIT ; RICHTIGEN ╙TELLE
JSR TIMEIT ; BESCHREIBEN
JSR TIMEIT
NOP
LDA CHARS,X
LDY WAVE,X
STA $D018
INX
BIT $EAEA
STY $D016
NOP
NOP
NOP
NOP
LDA CHARS,X
STA $D018
LDA WAVE,X
STA $D016
BIT $EAEA
INX
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
CPX #$38 ; FERTIG?
BNE LOOP ; DIE NAECHSTEN 8 ┌EILEN
LDA CHARS ;┬EWEGUNG DER BEIDEN
STA $FA ;╘ABELLEN NACH OBEN
LDA WAVE
STA $FB
LDX #0
:MOVE LDA CHARS+1,X
STA CHARS,X
LDA WAVE+1,X
STA WAVE,X
INX
CPX #$38
BNE MOVE
LDA $FA
STA CHARS+$37
LDA $FB
STA WAVE+$37
LDA #$3F ; ┴BSCHLUSS
STA $D012
INC $D019
JMP $FEBC
:TIMEIT NOP ;╒NTERROUTINE
NOP ;ZUM EXAKTEN
NOP ;╘IMIMG DER
NOP ;╥ASTERZEILEN
LDA WAVE,X
STA $D016
BIT $EAEA
LDA CHARS,X
STA $D018
INX
BIT $00
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
RTS
;╘ABELLEN FUER DIE ╓ERSCHIEBUNG
; $D016-╘ABELLE
:WAVE
B $1E,$18,$1A,$1C,$1D,$1E,$1F,$18
B $19,$1A,$1B,$1B,$1C,$1C,$1D,$1D
B $1E,$1E,$1E,$1E,$1F,$1F,$1F,$1F
B $1F,$1F,$1F,$1F,$1E,$1E,$1E,$1E
B $1D,$1D,$1C,$1C,$1B,$1B,$1A,$19
B $18,$1F,$1E,$1D,$1C,$1A,$18,$1E
B $1C,$1A,$19,$18,$18,$19,$1A,$1C
; $D018-╘ABELLE
:CHARS
B 24,26,26,26,26,26,26,28
B 28,28,28,28,28,28,28,28
B 28,28,28,28,28,28,28,28
B 28,28,28,28,28,28,28,28
B 28,28,28,28,28,28,28,28
B 28,26,26,26,26,26,26,24
B 24,24,24,24,24,24,24,24